(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     38407,       1310]
NotebookOptionsPosition[     34464,       1195]
NotebookOutlinePosition[     36706,       1253]
CellTagsIndexPosition[     36620,       1248]
WindowTitle->SetMandelstam
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"Mandelstam\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/Mandelstam"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/SetMandelstam\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/SetMandelstam"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                "http://reference.wolfram.com/language/FeynCalc/ref/\
SetMandelstam.html"], StandardForm]], "Input", TextClipboardType -> 
              "PlainText"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$232172], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/SetMandelstam", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["SetMandelstam", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"SetMandelstam", "[", 
       RowBox[{"s", ",", " ", "t", ",", " ", "u", ",", " ", 
        SubscriptBox["p", "1"], ",", " ", 
        SubscriptBox["p", "2"], ",", " ", 
        SubscriptBox["p", "3"], ",", " ", 
        SubscriptBox["p", "4"], ",", " ", 
        SubscriptBox["m", "1"], ",", " ", 
        SubscriptBox["m", "2"], ",", " ", 
        SubscriptBox["m", "3"], ",", " ", 
        SubscriptBox["m", "4"]}], "]"}]], "InlineFormula"],
     " \[LineSeparator]defines the Mandelstam variables  ",
     Cell[BoxData[
      RowBox[{"s", "=", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["p", "1"], "+", 
          SubscriptBox["p", "2"]}], ")"}], "2"]}]], "InlineFormula"],
     ", ",
     Cell[BoxData[
      RowBox[{"t", "=", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["p", "1"], "+", 
          SubscriptBox["p", "3"]}], ")"}], "2"]}]], "InlineFormula"],
     ", ",
     Cell[BoxData[
      RowBox[{"u", "=", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["p", "1"], "+", 
          SubscriptBox["p", "4"]}], ")"}], "2"]}]], "InlineFormula"],
     " and sets the momenta on-shell: ",
     Cell[BoxData[
      RowBox[{
       SuperscriptBox[
        SubscriptBox["p", "1"], "2"], "=", 
       SuperscriptBox[
        SubscriptBox["m", "1"], "2"]}]], "InlineFormula"],
     ", ",
     Cell[BoxData[
      RowBox[{
       SuperscriptBox[
        SubscriptBox["p", "2"], "2"], "=", 
       SuperscriptBox[
        SubscriptBox["m", "2"], "2"]}]], "InlineFormula"],
     ", ",
     Cell[BoxData[
      RowBox[{
       SuperscriptBox[
        SubscriptBox["p", "3"], "2"], "=", 
       SuperscriptBox[
        SubscriptBox["m", "3"], "2"]}]], "InlineFormula"],
     ", ",
     Cell[BoxData[
      RowBox[{
       SuperscriptBox[
        SubscriptBox["p", "4"], "2"], "=", 
       SuperscriptBox[
        SubscriptBox["m", "4"], "2"]}]], "InlineFormula"],
     ". Notice that ",
     Cell[BoxData[
      RowBox[{
       RowBox[{
        SubscriptBox["p", "1"], "+", 
        SubscriptBox["p", "2"], "+", 
        SubscriptBox["p", "3"], "+", 
        SubscriptBox["p", "4"]}], "=", "0"}]], "InlineFormula"],
     " is assumed."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1686696713],

Cell["", "SectionHeaderSpacer"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "SetMandelstam", "]"}]], "Input",
 CellLabel->"In[23]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"Dimension", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"4", ",", "D"}], "}"}]}], "}"}], TraditionalForm]], "Output",
 ImageSize->{142, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[23]="]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->572489121],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->769218739],

Cell["\<\
SetMandelstam assumes all momenta to be ingoing. For scattering processes \
with p1+p2=p3+p4, the outgoing momenta should be written with a minus sign.\
\>", "Notes"],

Cell[BoxData[
 RowBox[{"FCClearScalarProducts", "[", "]"}]], "Input",
 CellLabel->"In[1]:="],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetMandelstam", "[", 
  RowBox[{"s", ",", "t", ",", "u", ",", "p1", ",", "p2", ",", 
   RowBox[{"-", "p3"}], ",", 
   RowBox[{"-", "p4"}], ",", "m1", ",", "m2", ",", "m3", ",", "m4"}], 
  "]"}]], "Input",
 CellLabel->"In[2]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox["m1", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m1", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      SuperscriptBox["m2", "2"], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      SuperscriptBox["m3", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m3", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      SuperscriptBox["m4", "2"], 
      SuperscriptBox["m1", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m1", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      SuperscriptBox["m2", "2"], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      SuperscriptBox["m3", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m3", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      SuperscriptBox["m4", "2"], 
      SuperscriptBox["m1", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m1", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      SuperscriptBox["m2", "2"], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      SuperscriptBox["m3", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m3", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      SuperscriptBox["m4", "2"], 
      SuperscriptBox["m1", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m1", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m1", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      SuperscriptBox["m2", "2"], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m3", "2"], "2"], "-", 
       FractionBox["u", "2"]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["m2", "2"], "2"], "+", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "-", 
       FractionBox["t", "2"]}], 
      SuperscriptBox["m3", "2"], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["m3", "2"], "2"]}], "-", 
       FractionBox[
        SuperscriptBox["m4", "2"], "2"], "+", 
       FractionBox["s", "2"]}], 
      SuperscriptBox["m4", "2"]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 ImageSize->{3376, 32},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SP", "[", 
  RowBox[{"p1", ",", "p2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"SP", "[", 
  RowBox[{"p1", ",", "p3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"SP", "[", 
  RowBox[{"p1", ",", "p4"}], "]"}]}], "Input",
 CellLabel->"In[3]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["m1", "2"], "2"]}], "-", 
   FractionBox[
    SuperscriptBox["m2", "2"], "2"], "+", 
   FractionBox["s", "2"]}], TraditionalForm]], "Output",
 ImageSize->{120, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[3]="],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    SuperscriptBox["m1", "2"], "2"], "+", 
   FractionBox[
    SuperscriptBox["m3", "2"], "2"], "-", 
   FractionBox["t", "2"]}], TraditionalForm]], "Output",
 ImageSize->{109, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[3]="],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    SuperscriptBox["m1", "2"], "2"], "+", 
   FractionBox[
    SuperscriptBox["m4", "2"], "2"], "-", 
   FractionBox["u", "2"]}], TraditionalForm]], "Output",
 ImageSize->{111, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[3]="]
}, Open  ]],

Cell["\<\
SetMandelstam simultaneously sets scalar products in 4 and D dimensions. This \
is controlled by the option Dimension.\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SPD", "[", 
  RowBox[{"p1", ",", "p2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"SPD", "[", 
  RowBox[{"p1", ",", "p3"}], "]"}]}], "Input",
 CellLabel->"In[4]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["m1", "2"], "2"]}], "-", 
   FractionBox[
    SuperscriptBox["m2", "2"], "2"], "+", 
   FractionBox["s", "2"]}], TraditionalForm]], "Output",
 ImageSize->{120, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[4]="],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    SuperscriptBox["m1", "2"], "2"], "+", 
   FractionBox[
    SuperscriptBox["m3", "2"], "2"], "-", 
   FractionBox["t", "2"]}], TraditionalForm]], "Output",
 ImageSize->{109, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[4]="]
}, Open  ]],

Cell["\<\
It is also possible to have more than just 4 momenta. For example, for \
p1+p2=p3+p4+p5 we can obtain x[i, j] = (pi+pj)^2\
\>", "Notes"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FCClearScalarProducts", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetMandelstam", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{"{", 
     RowBox[{"p1", ",", " ", "p2", ",", " ", 
      RowBox[{"-", "p3"}], ",", " ", 
      RowBox[{"-", "p4"}], ",", " ", 
      RowBox[{"-", "p5"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "m1", ",", " ", "m2", ",", " ", "m3", ",", " ", "m4", ",", " ", "m5"}], 
     "}"}]}], "]"}], " "}]}], "Input",
 CellLabel->"In[5]:="],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox["m1", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m1", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m2", "2"], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m3", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}]}], ",", 
    SuperscriptBox["m3", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    SuperscriptBox["m4", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m4", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m5", "2"], ",", 
    SuperscriptBox["m1", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m1", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m2", "2"], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m3", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}]}], ",", 
    SuperscriptBox["m3", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    SuperscriptBox["m4", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m4", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m5", "2"], ",", 
    SuperscriptBox["m1", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m1", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m2", "2"], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m3", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}]}], ",", 
    SuperscriptBox["m3", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    SuperscriptBox["m4", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m4", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m5", "2"], ",", 
    SuperscriptBox["m1", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m1", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m2", "2"], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m2", "2"], "2"], "+", 
     FractionBox[
      SuperscriptBox["m3", "2"], "2"], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}]}], ",", 
    SuperscriptBox["m3", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    SuperscriptBox["m4", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m4", "2"], "2"]}], "-", 
     FractionBox[
      SuperscriptBox["m5", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    SuperscriptBox["m5", "2"], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m2", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m5", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m2", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m5", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m2", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m5", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m2", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m5", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m3", "2"], "2"]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"2", ",", "3"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["m1", "2"], "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "5"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}]}], ",", 
    RowBox[{
     FractionBox[
      SuperscriptBox["m4", "2"], "2"], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", ",", "2"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"3", ",", "4"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"x", "(", 
       RowBox[{"4", ",", "5"}], ")"}]}]}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{552, 1298},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[5]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SPD", "[", 
  RowBox[{"p4", ",", "p5"}], "]"}]], "Input",
 CellLabel->"In[6]:="],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"x", "(", 
     RowBox[{"4", ",", "5"}], ")"}]}], "-", 
   FractionBox[
    SuperscriptBox["m4", "2"], "2"], "-", 
   FractionBox[
    SuperscriptBox["m5", "2"], "2"]}], TraditionalForm]], "Output",
 ImageSize->{161, 38},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[6]="]
}, Open  ]]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[{
 StyleBox[ButtonBox["Mandelstam",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/Mandelstam",
  ButtonNote->"Mandelstam"],
  FontFamily->"Verdana"],
 "."
}], "SeeAlso"]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"SetMandelstam",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 10, 23.922521}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "SetMandelstam[s, t, u, p1, p2, p3, p4, m1, m2, m3, m4] defines the \
Mandelstam variables s = (p1 + p2) 2, t = (p1 + p3) 2, u = (p1 + p4) 2 and \
sets the momenta on-shell: p1 2 = m1 2, p2 2 = m2 2, p3 2 = m3 2, p4 2 = m4 \
2. Notice that p1 + p2 + p3 + p4 = 0 is assumed.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "SetMandelstam", "titlemodifier" -> "", 
    "windowtitle" -> "SetMandelstam", "type" -> "Symbol", "uri" -> 
    "FeynCalc/ref/SetMandelstam"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[7710, 246, 387, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->572489121]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 36477, 1241}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[585, 21, 3027, 74, 53, "AnchorBarGrid",
 CellID->1],
Cell[3615, 97, 290, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[3930, 112, 2517, 80, 118, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[6472, 196, 739, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1686696713],
Cell[7214, 222, 31, 0, 14, "SectionHeaderSpacer"],
Cell[CellGroupData[{
Cell[7270, 226, 96, 2, 27, "Input"],
Cell[7369, 230, 280, 9, 37, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7710, 246, 387, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->572489121],
Cell[CellGroupData[{
Cell[8122, 265, 195, 6, 26, "ExampleSection",
 CellID->769218739],
Cell[8320, 273, 176, 3, 49, "Notes"],
Cell[8499, 278, 92, 2, 27, "Input"],
Cell[CellGroupData[{
Cell[8616, 284, 251, 6, 27, "Input"],
Cell[8870, 292, 5751, 187, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14658, 484, 267, 7, 62, "Input"],
Cell[14928, 493, 341, 12, 59, "Output"],
Cell[15272, 507, 320, 11, 59, "Output"],
Cell[15595, 520, 320, 11, 59, "Output"]
}, Open  ]],
Cell[15930, 534, 143, 3, 49, "Notes"],
Cell[CellGroupData[{
Cell[16098, 541, 188, 5, 45, "Input"],
Cell[16289, 548, 341, 12, 59, "Output"],
Cell[16633, 562, 320, 11, 59, "Output"]
}, Open  ]],
Cell[16968, 576, 146, 3, 49, "Notes"],
Cell[CellGroupData[{
Cell[17139, 583, 531, 15, 45, "Input"],
Cell[17673, 600, 15643, 536, 1319, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33353, 1141, 104, 3, 27, "Input"],
Cell[33460, 1146, 401, 14, 59, "Output"]
}, Open  ]]
}, Open  ]],
Cell[33888, 1164, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33956, 1169, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[34229, 1183, 193, 7, 56, "SeeAlso"]
}, Open  ]],
Cell[34437, 1193, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

